Imports System.Threading

Public Class Splash
    Private Sub Splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Size = BackgroundImage.Size
    End Sub

    Public Sub FadeForm()
        While Opacity > 0
            Opacity -= 0.05
            Thread.Sleep(100)
            Application.DoEvents()
        End While
    End Sub
End Class